XGP.LST[HAL,HE] - www.SailDart.org

perm filename XGP.LST[HAL,HE] blob sn#189528 filedate 1975-11-25 generic text, type T, neo UTF8
/FONT#0=BASL30[HAL,<SP>HE]/FONT#1=BASI30[HAL,<SP>HE]/FONT#2=BASB30/FO
NT#4=GRK30/FONT#5=LPT/FONT#6=BDR40/FONT#7=BDR66/TMAR=200/PMAR=1992/BM
AR=2
<CR><LF>
<FF>
<FONT SELECT '000>
<FONT SELECT '001>
<FONT SELECT '002>
<FONT SELECT '004>
<FONT SELECT '005>
<FONT SELECT '006>
<FONT SELECT '007>
<COLUMN SEL '310>
<SET Y0 '310>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '346>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '404>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '442>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '500>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '536>
<FONT SELECT '000>
<COLUMN SEL '1414>
<FONT SELECT '006>
Interim<SP><COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '606>
<FONT SELECT '006>
<COLUMN SEL '1062>
<FONT SELECT '007>
AL<SP>User's<SP>Handbook
<FONT SELECT '002>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '710>
<FONT SELECT '002>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '746>
<FONT SELECT '002>
<COLUMN SEL '1341>
<FONT SELECT '002>
Russell<SP>H.<SP>Taylor<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1004>
<FONT SELECT '002>
<COLUMN SEL '1064>Stanford<SP>Artificial<SP>Intelligence<SP>Laboratory
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1042>
<FONT SELECT '002>
<COLUMN SEL '1375>NOV<SP>25,<SP>1975<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1100>
<FONT SELECT '002>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1136>
<FONT SELECT '002>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1174>
<FONT SELECT '002>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1232>
<FONT SELECT '002>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1270>
<FONT SELECT '002>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1326>
<FONT SELECT '002>
<COLUMN SEL '310><LF>
<COLUMN SEL '513>
<SET Y0 '1364>
<FONT SELECT '002>
<COLUMN SEL '513><COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1422>
<FONT SELECT '002>
<FONT SELECT '006>
I.<COLUMN SEL '716>Introduction<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1472>
<FONT SELECT '006>
II.<COLUMN SEL '716>Input<SP>Format<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1542>
<FONT SELECT '006>
III.<COLUMN SEL '716>Predeclared<SP>Variables<SP>and<SP>Constants
<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1612>
<FONT SELECT '006>
IV.<COLUMN SEL '716>Declarations<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1662>
<FONT SELECT '006>
V.<COLUMN SEL '716>Global<SP>Declarations<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1732>
<FONT SELECT '006>
VI.<COLUMN SEL '716>Control<SP>Structures<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2002>
<FONT SELECT '006>
VII.<COLUMN SEL '716>Device<SP>Control<SP>Statements<COLUMN SEL '513>
<LF>
<COLUMN SEL '513>
<SET Y0 '2052>
<FONT SELECT '006>
VIII.<COLUMN SEL '716>Graph<SP>Structure<SP>Statements
<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2122>
<FONT SELECT '006>
IX.<COLUMN SEL '716>Miscellaneous<SP>Statements<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2172>
<FONT SELECT '006>
X.<COLUMN SEL '716>Statements<SP>that<SP>Emit<SP>No<SP>Code
<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2242>
<FONT SELECT '006>
XI.<COLUMN SEL '716>Expressions<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2312>
<FONT SELECT '006>
XII.<COLUMN SEL '716>Operating<SP>Instructions<COLUMN SEL '513><LF>
<COLUMN SEL '310>
<SET Y0 '2362>
<FONT SELECT '006>
<COLUMN SEL '310><COLUMN SEL '310><LF>
<FF>
<COLUMN SEL '310>
<SET Y0 '310>
<FONT SELECT '006>
<FONT SELECT '000>
<COLUMN SEL '1351>
<FONT SELECT '006>
Introduction
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '360>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '416>
<FONT SELECT '000>
<COLUMN SEL '310>This<COL INC '014>document<COL INC '014>is
<COL INC '014>intended<COL INC '013>to<COL INC '013>serve
<COL INC '013>as<COL INC '013>an<COL INC '013>"interim<COL INC '013>p
rogrammer's<COL INC '013>manual"<COL INC '013>for<COL INC '013>people
<COL INC '013>who<COL INC '013>may<COL INC '013>want<COLUMN SEL '310>
<LF>
<COLUMN SEL '310>
<SET Y0 '454>
<FONT SELECT '000>
<COLUMN SEL '310>to<COL INC '012>use<COL INC '012>AL<COL INC '012>in
<COL INC '012>its<COL INC '012>present<COL INC '012>state.
<COL INC '012>To<COL INC '012>get<COL INC '012>your<COL INC '012>own
<COL INC '012>copy,<COL INC '012>XSPOOL<COL INC '012>ALCODE.XGP[HAL,H
E].<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '512>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '550>
<FONT SELECT '000>
<COLUMN SEL '310>Since<COL INC '016>a<COL INC '015>full-blown
<COL INC '015>parser<COL INC '015>for<COL INC '015>AL<COL INC '015>pr
ograms<COL INC '015>has<COL INC '015>yet<COL INC '015>to
<COL INC '015>be<COL INC '015>implemented,<COL INC '015>an
<COL INC '015>input<COL INC '015>syntax<COL INC '015>somewhat
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '606>
<FONT SELECT '000>
<COLUMN SEL '310>resembling<COL INC '014>LISP<COL INC '014>s-expressi
ons<COL INC '014>has<COL INC '014>been<COL INC '013>supplied
<COL INC '013>as<COL INC '013>an<COL INC '013>interim<COL INC '013>me
asure.<COL INC '013>The<COL INC '013>basic<COL INC '013>elements
<COL INC '013>in<COL INC '013>this<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '644>
<FONT SELECT '000>
<COLUMN SEL '310>syntax<COL INC '012>are<COL INC '012>atomic
<COL INC '012>symbols<COL INC '012>and<COL INC '012>forms
<COL INC '012>like:<COLUMN SEL '310><LF>
<COLUMN SEL '513>
<SET Y0 '702>
<FONT SELECT '000>
<COLUMN SEL '513><COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '740>
<FONT SELECT '000>
(<<keyword>><SP><<e1>><SP><<e2>><SP>...<SP><<ek>><SP>)
<COLUMN SEL '513><LF>
<COLUMN SEL '310>
<SET Y0 '776>
<FONT SELECT '000>
<COLUMN SEL '310><COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1034>
<FONT SELECT '000>
<COLUMN SEL '310>which<COL INC '016>correspond<COL INC '016>in
<COL INC '016>a<COL INC '016>more<COL INC '016>or<COL INC '016>less
<COL INC '015>one-to-one<COL INC '015>manner<COL INC '015>with
<COL INC '015>the<COL INC '015>record<COL INC '015>structures
<COL INC '015>used<COL INC '015>inside<COL INC '015>the
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1072>
<FONT SELECT '000>
<COLUMN SEL '310>compiler.<COL INC '012>For<COL INC '012>instance,
<COL INC '012>the<COL INC '012>program<COLUMN SEL '310><LF>
<COLUMN SEL '513>
<SET Y0 '1130>
<FONT SELECT '000>
<COLUMN SEL '513><COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1166>
<FONT SELECT '000>
BEGIN<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1224>
<FONT SELECT '000>
<SP><SP><SP><SP>FRAME<SP>a,b;ROTN<SP>r;TRANS<SP>t;<COLUMN SEL '513>
<LF>
<COLUMN SEL '513>
<SET Y0 '1262>
<FONT SELECT '000>
<SP><SP><SP><SP>r←ROT(YHAT,180*DEG);<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1320>
<FONT SELECT '000>
<SP><SP><SP><SP>a<SP>←<SP>FRAME(r,VECTOR(0,0,2));<COLUMN SEL '513>
<LF>
<COLUMN SEL '513>
<SET Y0 '1356>
<FONT SELECT '000>
<SP><SP><SP><SP>MOVE<SP>YELLOW<SP>TO<SP>FRAME(r,VECTOR(1,0,2));
<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1414>
<FONT SELECT '000>
<SP><SP><SP><SP>b<SP>←<SP>FRAME(r,VECTOR(0,0,3));<COLUMN SEL '513>
<LF>
<COLUMN SEL '513>
<SET Y0 '1452>
<FONT SELECT '000>
<SP><SP><SP><SP>AFFIX<SP>a<SP>TO<SP>YELLOW<SP>BY<SP>t<SP>RIGIDLY;
<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1510>
<FONT SELECT '000>
<SP><SP><SP><SP>MOVE<SP>a<SP>TO<SP>b;<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1546>
<FONT SELECT '000>
<SP><SP><SP><SP>MOVE<SP>a<SP>TO<SP>b*TRANS(ROT(XHAT,90*DEG),VECTOR(1,
1,1));<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1604>
<FONT SELECT '000>
<SP><SP><SP><SP>UNFIX<SP>a<SP>FROM<SP>YELLOW;<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1642>
<FONT SELECT '000>
<SP><SP><SP><SP>MOVE<SP>YELLOW<SP>TO<SP>YPARK;<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1700>
<FONT SELECT '000>
END;<COLUMN SEL '513><LF>
<COLUMN SEL '310>
<SET Y0 '1736>
<FONT SELECT '000>
<COLUMN SEL '310><COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1774>
<FONT SELECT '000>
would<SP>be<SP>written<SP>as<SP><COLUMN SEL '310><LF>
<COLUMN SEL '513>
<SET Y0 '2032>
<FONT SELECT '000>
<COLUMN SEL '513><COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2070>
<FONT SELECT '000>
(PR<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2126>
<FONT SELECT '000>
<SP><SP>(BL<SP>(FVAR<SP>a<SP>b)(RVAR<SP>r)(TVAR<SP>t)
<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2164>
<FONT SELECT '000>
<SP><SP><SP><SP>(AS<SP>r<SP>(RMAKE<SP>YHAT<SP>(SSMUL<SP>180<SP>DEG)))
<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2222>
<FONT SELECT '000>
<SP><SP><SP><SP>(AS<SP>a<SP>(FMAKE<SP>r<SP>(VMAKE<SP>0<SP>0<SP>2)))
<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2260>
<FONT SELECT '000>
<SP><SP><SP><SP>(MO<SP>YARM<SP>(FMAKE<SP>r<SP>(VMAKE<SP>1<SP>0<SP>2))
)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2316>
<FONT SELECT '000>
<SP><SP><SP><SP>(AS<SP>b<SP>(FMAKE<SP>r<SP>(VMAKE<SP>0<SP>0<SP>3)))
<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2354>
<FONT SELECT '000>
<SP><SP><SP><SP>(AFFIX<SP>a<SP>YARM<SP>t<SP>()<SP>RIGIDLY)
<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2412>
<FONT SELECT '000>
<SP><SP><SP><SP>(MO<SP>a<SP>b)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2450>
<FONT SELECT '000>
<SP><SP><SP><SP>(MO<SP>a<SP>(TTMUL<SP>b<SP>(TMAKE<SP>(AXW_ROTN<SP>XHA
T<SP>(SSMUL<SP>90<SP>DEG))(VMAKE<SP>1<SP>1<SP>1))))<COLUMN SEL '513>
<LF>
<COLUMN SEL '513>
<SET Y0 '2506>
<FONT SELECT '000>
<SP><SP><SP><SP>(UNFIX<SP>a<SP>YARM)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2544>
<FONT SELECT '000>
<SP><SP><SP><SP>(MO<SP>YARM<SP>YPARK)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2602>
<FONT SELECT '000>
<SP><SP>)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2640>
<FONT SELECT '000>
<SP>)<COLUMN SEL '513><LF>
<COLUMN SEL '310>
<SET Y0 '2676>
<FONT SELECT '000>
<COLUMN SEL '310><COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2734>
<FONT SELECT '000>
<COLUMN SEL '310>Generally<COL INC '013>speaking,<COL INC '013>the
<COL INC '013>semantics<COL INC '013>of<COL INC '013>the
<COL INC '013>various<COL INC '012>language<COL INC '012>constructs
<COL INC '012>have<COL INC '012>remained<COL INC '012>pretty
<COL INC '012>much<COL INC '012>the<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2772>
<FONT SELECT '000>
<COLUMN SEL '310>same<COL INC '017>as<COL INC '017>given
<COL INC '017>in<COL INC '016>AIM-243,<COL INC '016>
<FONT SELECT '001>
AL,<COL INC '016>A<COL INC '016>Programming<COL INC '016>System
<COL INC '016>for<COL INC '016>Automation
<FONT SELECT '000>
,<COL INC '016>and<COL INC '016>familiarity<COL INC '016>with
<COL INC '016>that<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '3030>
<FONT SELECT '000>
<COLUMN SEL '310>document<COL INC '016>is<COL INC '016>assumed.
<COL INC '016>However,<COL INC '016>there<COL INC '016>are
<COL INC '016>some<COL INC '016>differences,<COL INC '016>as
<COL INC '016>is<COL INC '016>to<COL INC '016>be<COL INC '015>expecte
d<COL INC '015>with<COL INC '015>an<COL INC '015>evolving
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '3066>
<FONT SELECT '000>
<COLUMN SEL '310>system,<COL INC '021>and<COL INC '021>many
<COL INC '021>of<COL INC '021>the<COL INC '021>features<COL INC '021>
of<COL INC '021>AL<COL INC '021>do<COL INC '021>not<COL INC '021>yet
<COL INC '021>have<COL INC '021>any<COL INC '021>corresponding
<COL INC '021>"s-expression";<COL INC '020>as<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '3124>
<FONT SELECT '000>
<COLUMN SEL '310>implementation<COL INC '012>proceeds,<COL INC '012>t
hese<COL INC '012>will<COL INC '012>be<COL INC '012>added.
<COLUMN SEL '310><LF>
<COLUMN SEL '2706>
<SET Y0 '3754>
<FONT SELECT '002>
[1]<LF>
<FF>
<COLUMN SEL '2704>
<SET Y0 '200>
<FONT SELECT '002>
[2]<LF>
<COLUMN SEL '310>
<SET Y0 '235>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '273>
<FONT SELECT '000>
<FONT SELECT '002>
Atomic<SP>Symbols
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '310>
<FONT SELECT '000>
<COLUMN SEL '1342>
<FONT SELECT '006>
Input<SP>format
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '331>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '367>
<FONT SELECT '000>
Examples:<COLUMN SEL '513>"This<SP>is<SP>a<SP>string."
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '425>
<FONT SELECT '000>
<COLUMN SEL '513>ident<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '463>
<FONT SELECT '000>
<COLUMN SEL '513>3.14159<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '521>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '557>
<FONT SELECT '000>
<COLUMN SEL '310>Atomic<COL INC '021>symbols<COL INC '021>include
<COL INC '021>identifiers<COL INC '021>(discussed<COL INC '021>below)
,<COL INC '021>real<COL INC '021>numbers,<COL INC '021>string
<COL INC '020>constants,<COL INC '020>and<COL INC '020>certain
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '615>
<FONT SELECT '000>
<COLUMN SEL '310>special<COL INC '012>characters<COL INC '012>(such
<COL INC '012>as<COL INC '012>"≠").<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '653>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '711>
<FONT SELECT '000>
<FONT SELECT '002>
Identifiers
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '747>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1005>
<FONT SELECT '000>
Examples:<COLUMN SEL '513>x<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1043>
<FONT SELECT '000>
<COLUMN SEL '430><COLUMN SEL '513>ABC102<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1101>
<FONT SELECT '000>
<COLUMN SEL '430><COLUMN SEL '513>a_very_long_identifier
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1137>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1175>
<FONT SELECT '000>
<COLUMN SEL '310>Identifiers<COL INC '021>are<COL INC '021>used
<COL INC '021>as<COL INC '021>variables,<COL INC '021>labels,
<COL INC '021>keywords,<COL INC '021>and<COL INC '021>names
<COL INC '021>for<COL INC '021>certain<COL INC '021>predeclared
<COL INC '020>constants.<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1233>
<FONT SELECT '000>
<COLUMN SEL '310>Identifiers<COL INC '013>consist<COL INC '013>of
<COL INC '013>a<COL INC '013>letter<COL INC '013>followed
<COL INC '013>by<COL INC '013>any<COL INC '013>string<COL INC '013>of
<COL INC '013>letters<COL INC '013>and<COL INC '013>digits,
<COL INC '013>For<COL INC '013>this<COL INC '013>purpose
<COL INC '013>the<COL INC '012>special<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1271>
<FONT SELECT '000>
<COLUMN SEL '310>character<COL INC '013>"_"<COL INC '013>is
<COL INC '013>treated<COL INC '013>like<COL INC '013>a<COL INC '013>l
etter.<COL INC '013>All<COL INC '013>letters<COL INC '013>are
<COL INC '013>coerced<COL INC '012>to<COL INC '012>upper
<COL INC '012>case<COL INC '012>on<COL INC '012>input;<COL INC '012>t
hus,<COL INC '012>"foo",<COL INC '012>"FOO"<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1327>
<FONT SELECT '000>
<COLUMN SEL '310>and<COL INC '014>"Foo"<COL INC '014>are
<COL INC '014>all<COL INC '014>the<COL INC '014>same<COL INC '014>ide
ntifier.<COL INC '014>This<COL INC '014>manual<COL INC '014>will
<COL INC '014>use<COL INC '014>upper<COL INC '014>case<COL INC '014>l
etters<COL INC '014>to<COL INC '014>indicate<COL INC '013>"reserved"
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1365>
<FONT SELECT '000>
<COLUMN SEL '310>identifiers,<COL INC '015>and<COL INC '014>lower
<COL INC '014>case<COL INC '014>to<COL INC '014>indicate
<COL INC '014>everything<COL INC '014>else.<COL INC '014>In
<COL INC '014>general,<COL INC '014>a<COL INC '014>non-reserved
<COL INC '014>identifier<COL INC '014>must<COL INC '014>be
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1423>
<FONT SELECT '000>
<COLUMN SEL '310>declared<COL INC '014>(either<COL INC '014>in
<COL INC '014>a<COL INC '014>variable<COL INC '014>declaration
<COL INC '014>or<COL INC '014>by<COL INC '014>using<COL INC '014>it
<COL INC '014>as<COL INC '013>a<COL INC '013>label)<COL INC '013>befo
re<COL INC '013>being<COL INC '013>used<COL INC '013>in<COL INC '013>
a<COL INC '013>program.<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1461>
<FONT SELECT '000>
<COLUMN SEL '310>However,<COL INC '013>if<COL INC '013>an
<COL INC '012>undefined<COL INC '012>identifier<COL INC '012>is
<COL INC '012>used<COL INC '012>in<COL INC '012>a<COL INC '012>contex
t<COL INC '012>where<COL INC '012>a<COL INC '012>variable
<COL INC '012>is<COL INC '012>expected,<COL INC '012>the
<COL INC '012>system<COL INC '012>will<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1517>
<FONT SELECT '000>
<COLUMN SEL '310>make<COL INC '012>an<COL INC '012>implicit
<COL INC '012>declaration<COL INC '012>for<COL INC '012>it
<COL INC '012>and<COL INC '012>print<COL INC '012>a<COL INC '012>mess
age<COL INC '012>to<COL INC '012>the<COL INC '012>user.<COL INC '012>
For<COL INC '012>instance,<COLUMN SEL '310><LF>
<COLUMN SEL '513>
<SET Y0 '1555>
<FONT SELECT '000>
<COLUMN SEL '513><COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1613>
<FONT SELECT '000>
(AS<SP>y<SP>10)<COLUMN SEL '513><LF>
<COLUMN SEL '310>
<SET Y0 '1651>
<FONT SELECT '000>
<COLUMN SEL '310><COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1707>
<FONT SELECT '000>
<COLUMN SEL '310>would<COL INC '016>print<COL INC '016>out
<COL INC '016>"Y<COL INC '016>declared<COL INC '016>a<COL INC '016>sc
alar<COL INC '016>variable".<COL INC '016>However,<COL INC '016>this
<COL INC '016>facility<COL INC '016>should<COL INC '016>be
<COL INC '016>viewed<COL INC '016>as<COL INC '016>a<COL INC '016>bug
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1745>
<FONT SELECT '000>
<COLUMN SEL '310>recovery<COL INC '014>mechanism<COL INC '014>and
<COL INC '014>not<COL INC '014>as<COL INC '014>the<COL INC '014>prefe
rred<COL INC '014>way<COL INC '014>to<COL INC '014>declare
<COL INC '013>variables.<COL INC '013>No<COL INC '013>promisses
<COL INC '013>are<COL INC '013>made<COL INC '013>that
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2003>
<FONT SELECT '000>
<COLUMN SEL '310>such<COL INC '016>declarations<COL INC '016>will
<COL INC '016>always<COL INC '016>work<COL INC '015>correctly.
<COL INC '015>WARNING:<COL INC '015>Attempts<COL INC '015>to
<COL INC '015>redefine<COL INC '015>reserved<COL INC '015>identifiers
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2041>
<FONT SELECT '000>
<COLUMN SEL '310>(keywords,<COL INC '012>predeclared<COL INC '012>var
iables,<COL INC '012>and<COL INC '012>predeclared<COL INC '012>consta
nts)<COL INC '012>will<COL INC '012>not<COL INC '012>work
<COL INC '012>correctly.<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2077>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2135>
<FONT SELECT '000>
<FONT SELECT '002>
Structure<SP>forms
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2173>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2231>
<FONT SELECT '000>
Syntax:<COLUMN SEL '513>(<<keyword>><SP><<element1>><SP>...<SP><<elem
ent<SP>n>>)<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2267>
<FONT SELECT '000>
<COLUMN SEL '430><COLUMN SEL '513>(<<label>><SP><<keyword>><SP><<elem
ent<SP>1>><SP>...<SP><<element<SP>n>>)<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2325>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2363>
<FONT SELECT '000>
Examples:<COLUMN SEL '513>(SVAR<SP>x<SP>y<SP>z)<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2421>
<FONT SELECT '000>
<COLUMN SEL '430><COLUMN SEL '513>(foo<SP>ON<SP>e1<SP>(AS<SP>x<SP>1))
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2457>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2515>
<FONT SELECT '000>
<COLUMN SEL '310>The<COL INC '014>two<COL INC '014>forms
<COL INC '014>are<COL INC '014>equivalent,<COL INC '014>except
<COL INC '014>that<COL INC '014><<label>>,<COL INC '014>if
<COL INC '014>it<COL INC '014>appears,<COL INC '014>may<COL INC '014>
be<COL INC '014>used<COL INC '014>subsequently<COL INC '014>to
<COL INC '014>refer<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2553>
<FONT SELECT '000>
<COLUMN SEL '310>to<COL INC '014>the<COL INC '014>semantic
<COL INC '014>entity<COL INC '014>defined<COL INC '014>by
<COL INC '014>the<COL INC '014>form.<COL INC '014><<label>>
<COL INC '014>must<COL INC '014>have<COL INC '014>been<COL INC '014>p
reviously<COL INC '013>declared<COL INC '013>as<COL INC '013>a
<COL INC '013>"label"<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2611>
<FONT SELECT '000>
<COLUMN SEL '310>variable<COL INC '012>of<COL INC '012>the
<COL INC '012>appropriate<COL INC '012>kind.<COLUMN SEL '310><LF>
<FF>
<COLUMN SEL '2704>
<SET Y0 '200>
<FONT SELECT '002>
[3]<LF>
<COLUMN SEL '310>
<SET Y0 '235>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '273>
<FONT SELECT '000>
<FONT SELECT '002>
Variables
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '310>
<FONT SELECT '000>
<COLUMN SEL '1040>
<FONT SELECT '006>
Predeclared<SP>variables<SP>and<SP>constants
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '331>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '367>
<FONT SELECT '000>
<COLUMN SEL '310>YARM,<COL INC '020>BARM<COL INC '020>--
<COL INC '020>Frame<COL INC '020>variables<COL INC '020>corresponding
<COL INC '020>to<COL INC '017>the<COL INC '017>location<COL INC '017>
of<COL INC '017>the<COL INC '017>YELLOW<COL INC '017>and
<COL INC '017>BLUE<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '425>
<FONT SELECT '000>
<COLUMN SEL '310>arms<COL INC '022>(actually,<COL INC '022>the
<COL INC '022>location<COL INC '021>and<COL INC '021>orientation
<COL INC '021>of<COL INC '021>a<COL INC '021>coordinate<COL INC '021>
system<COL INC '021>tacked<COL INC '021>onto<COL INC '021>the
<COL INC '021>end<COL INC '021>of<COL INC '021>the<COLUMN SEL '310>
<LF>
<COLUMN SEL '310>
<SET Y0 '463>
<FONT SELECT '000>
<COLUMN SEL '310>YELLOW<COL INC '012>and<COL INC '012>BLUE
<COL INC '012>hands,<COL INC '012>respectively).<COL INC '012>Used
<COL INC '012>as<COL INC '012>device<COL INC '012>names<COL INC '012>
for<COL INC '012>MOVE<COL INC '012>statements.<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '521>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '557>
<FONT SELECT '000>
<COLUMN SEL '310>YHAND,<COL INC '017>BHAND<COL INC '017>--
<COL INC '017>Scalar<COL INC '017>variables<COL INC '017>giving
<COL INC '017>the<COL INC '017>opening<COL INC '016>of<COL INC '016>t
he<COL INC '016>YELLOW<COL INC '016>and<COL INC '016>BLUE
<COL INC '016>fingers.<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '615>
<FONT SELECT '000>
<COLUMN SEL '310>Used<COL INC '012>as<COL INC '012>device
<COL INC '012>names<COL INC '012>for<COL INC '012>"operate"
<COL INC '012>statements.<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '653>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '711>
<FONT SELECT '000>
<COLUMN SEL '310>OLDV,<COL INC '021>NEWV<COL INC '021>--
<COL INC '021>Hold<COL INC '020>the<COL INC '020>old<COL INC '020>and
<COL INC '020>new<COL INC '020>values<COL INC '020>for<COL INC '020>a
<COL INC '020>variable<COL INC '020>when<COL INC '020>a<COL INC '020>
"changer"<COL INC '020>is<COL INC '020>invoked.<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '747>
<FONT SELECT '000>
<COLUMN SEL '310>Actually,<COL INC '014>these<COL INC '013>might
<COL INC '013>be<COL INC '013>better<COL INC '013>referred
<COL INC '013>to<COL INC '013>as<COL INC '013>"variable-like"
<COL INC '013>entities,<COL INC '013>since<COL INC '013>their
<COL INC '013>type,<COL INC '013>etc.,<COL INC '013>depend
<COL INC '013>on<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1005>
<FONT SELECT '000>
<COLUMN SEL '310>what<COL INC '012>"changer"<COL INC '012>they
<COL INC '012>appear<COL INC '012>in.<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1043>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1101>
<FONT SELECT '000>
<COLUMN SEL '310>AFFIXED<COL INC '012>--<COL INC '012>Atom
<COL INC '012>used<COL INC '012>in<COL INC '012>AFFIXED<COL INC '012>
pattern<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1137>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1175>
<FONT SELECT '000>
<COLUMN SEL '310>RIGIDLY,<COL INC '020>NONRIGIDLY<COL INC '020>--
<COL INC '020>Atoms<COL INC '020>that<COL INC '020>appear
<COL INC '017>in<COL INC '017>AFFIXED<COL INC '017>patterns
<COL INC '017>and<COL INC '017>which<COL INC '017>are<COL INC '017>us
ed<COL INC '017>to<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1233>
<FONT SELECT '000>
<COLUMN SEL '310>specify<COL INC '012>kind<COL INC '012>of
<COL INC '012>affixment<COL INC '012>in<COL INC '012>an<COL INC '012>
AFFIX<COL INC '012>statement.<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1271>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1327>
<FONT SELECT '000>
<FONT SELECT '002>
Constants
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1365>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '513>
<SET Y0 '1423>
<FONT SELECT '000>
<COLUMN SEL '513><COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1461>
<FONT SELECT '000>
PI<SP>=<SP>3.141592653<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1517>
<FONT SELECT '000>
DEG<SP>=<SP>PI/180<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1555>
<FONT SELECT '000>
XHAT<SP>=<SP>VECTOR(1,0,0)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1613>
<FONT SELECT '000>
YHAT<SP>=<SP>VECTOR(0,1,0)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1651>
<FONT SELECT '000>
ZHAT<SP>=<SP>VECTOR(0,0,1)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1707>
<FONT SELECT '000>
NILVECT<SP>=<SP>VECTOR(0,0,0)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1745>
<FONT SELECT '000>
NILROTN<SP>=<SP>ROT(ZHAT,0)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2003>
<FONT SELECT '000>
NILTRANS<SP>=<SP>TRANS(NILROTN,NILVECT)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2041>
<FONT SELECT '000>
STATION<SP>=<SP>FRAME(NILROTN,NILVECT)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2077>
<FONT SELECT '000>
YPARK<SP>=<SP>parking<SP>place<SP>for<SP>YELLOW<SP>arm
<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2135>
<FONT SELECT '000>
BPARK<SP>=<SP>parking<SP>place<SP>for<SP>BLUE<SP>arm<COLUMN SEL '513>
<LF>
<COLUMN SEL '310>
<SET Y0 '2173>
<FONT SELECT '000>
<COLUMN SEL '310><COLUMN SEL '310><LF>
<FF>
<COLUMN SEL '2701>
<SET Y0 '200>
<FONT SELECT '002>
[4]<LF>
<COLUMN SEL '310>
<SET Y0 '235>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '273>
<FONT SELECT '000>
Syntax:<COLUMN SEL '513>(<<declarator>><SP><<id1>><SP><<id2>><SP>...
<SP><<idn>>)<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '310>
<FONT SELECT '000>
<COLUMN SEL '1354>
<FONT SELECT '006>
Declarations
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '331>
<FONT SELECT '000>
Example:<COLUMN SEL '513>(SVAR<SP>x<SP>y<SP>z)<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '367>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '425>
<FONT SELECT '000>
<COLUMN SEL '310>Causes<COL INC '020>variables<COL INC '020><<id1>>,
<COL INC '020>...,<COL INC '017><<idn>><COL INC '017>to<COL INC '017>
be<COL INC '017>declared<COL INC '017>with<COL INC '017>the
<COL INC '017>type<COL INC '017>specified<COL INC '017>by
<COL INC '017><<declarator>><COL INC '017>as<COL INC '017>local
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '463>
<FONT SELECT '000>
<COLUMN SEL '310>variables<COL INC '020>to<COL INC '020>the
<COL INC '020>current<COL INC '020>block.<COL INC '020>Declarations
<COL INC '020>may<COL INC '017>appear<COL INC '017>anywhere
<COL INC '017>a<COL INC '017>statement<COL INC '017>is<COL INC '017>l
egal<COL INC '017>(although<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '521>
<FONT SELECT '000>
<COLUMN SEL '310>some<COL INC '017>places<COL INC '017>--
<COL INC '017>such<COL INC '017>as<COL INC '016>the<COL INC '016>body
<COL INC '016>of<COL INC '016>an<COL INC '016>"on<COL INC '016>monito
r"<COL INC '016>--<COL INC '016>don't<COL INC '016>make<COL INC '016>
a<COL INC '016>lot<COL INC '016>of<COL INC '016>sense.)<COL INC '016>
In<COL INC '016>particular,<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '557>
<FONT SELECT '000>
<COLUMN SEL '310>statements<COL INC '015>and<COL INC '015>declaration
s<COL INC '015>may<COL INC '015>be<COL INC '015>intermixed
<COL INC '015>within<COL INC '015>a<COL INC '015>block.<COL INC '015>
However,<COL INC '015>a<COL INC '015>declaration<COL INC '014>only
<COL INC '014>affects<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '615>
<FONT SELECT '000>
<COLUMN SEL '310>those<COL INC '013>statements<COL INC '013>that
<COL INC '012>come<COL INC '012>after<COL INC '012>it<COL INC '012>wi
thin<COL INC '012>the<COL INC '012>block.<COL INC '012>Thus,
<COL INC '012>if<COL INC '012>a<COL INC '012>variable<COL INC '012>is
<COL INC '012>used<COL INC '012>within<COL INC '012>a<COL INC '012>bl
ock<COL INC '012>before<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '653>
<FONT SELECT '000>
<COLUMN SEL '310>its<COL INC '012>declaration<COL INC '012>appears,
<COL INC '012>then<COL INC '012>its<COL INC '012>next<COL INC '012>"h
igher"<COL INC '012>declaration<COL INC '012>will<COL INC '012>be
<COL INC '012>used.<COL INC '012>For<COL INC '012>instance:
<COLUMN SEL '310><LF>
<COLUMN SEL '513>
<SET Y0 '711>
<FONT SELECT '000>
<COLUMN SEL '513><COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '747>
<FONT SELECT '000>
(BL<SP>(SVAR<SP>x<SP>y)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1005>
<FONT SELECT '000>
<SP><SP><SP><SP>(BL<SP>(AS<SP>x<SP>3)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1043>
<FONT SELECT '000>
<SP><SP><SP><SP><SP><SP><SP><SP>(SVAR<SP>x)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1101>
<FONT SELECT '000>
<SP><SP><SP><SP><SP><SP><SP><SP>(AS<SP>x<SP>4)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1137>
<FONT SELECT '000>
<SP><SP><SP><SP><SP><SP><SP><SP>)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1175>
<FONT SELECT '000>
<SP><SP><SP<∧sP>(AS<SP>y<SP>x)<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1233>
<FONT SELECT '000>
<SP><SP><SP><SP>)<COLUMN SEL '513><LF>
<COLUMN SEL '310>
<SET Y0 '1271>
<FONT SELECT '000>
<COLUMN SEL '310><COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1327>
<FONT SELECT '000>
<COLUMN SEL '310>will<COL INC '012>set<COL INC '012>variable
<COL INC '012>"y"<COL INC '012>to<COL INC '012>3.<COLUMN SEL '310>
<LF>
<COLUMN SEL '310>
<SET Y0 '1365>
<FONT SELECT '000>
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '1423>
<FONT SELECT '000>
<COLUMN SEL '310>Legal<COL INC '012><<declarator>>s<COL INC '012>are:
<COLUMN SEL '310><LF>
<COLUMN SEL '513>
<SET Y0 '1461>
<FONT SELECT '000>
<COLUMN SEL '513><COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1517>
<FONT SELECT '000>
SVAR<SP>--<SP>Scalar<SP>variable<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1555>
<FONT SELECT '000>
VVAR<SP>--<SP>Vector<SP>variable<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1613>
<FONT SELECT '000>
RVAR<SP>--<SP>Rotation<SP>variable<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1651>
<FONT SELECT '000>
TVAR<SP>--<SP>Trans<SP>variable<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1707>
<FONT SELECT '000>
FVAR<SP>--<SP>Frame<SP>variable<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '1745>
<FONT SELECT '000>
ATOM<SP>--<SP>Atom<SP>variable<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2003>
<FONT SELECT '000>
EVAR<SP>--<SP>Event<SP>variable<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2041>
<FONT SELECT '000>
WVAR<SP>--<SP>World<SP>name<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2077>
<FONT SELECT '000>
ONLAB<SP>--<SP>Condition<SP>monitor<SP>label<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2135>
<FONT SELECT '000>
CLCLAB<SP>--<SP>Calculator<SP>label<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2173>
<FONT SELECT '000>
CHGLAB<SP>--<SP>Changer<SP>label<COLUMN SEL '513><LF>
<COLUMN SEL '513>
<SET Y0 '2231>
<FONT SELECT '000>
STMLAB<SP>--<SP>Statement<SP>label<COLUMN SEL '513><LF>
<COLUMN SEL '310>
<SET Y0 '2267>
<FONT SELECT '000>
<COLUMN SEL '310><COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2325>
<FONT SELECT '000>
<COLUMN SEL '310>NOTE:<COL INC '020>Internally,<COL INC '020>AL
<COL INC '020>associates<COL INC '020>a<COL INC '020>unique
<COL INC '020>print<COL INC '017>name<COL INC '017>with<COL INC '017>
every<COL INC '017>variable<COL INC '017>by<COL INC '017>tacking
<COL INC '017>the<COL INC '017>block<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2363>
<FONT SELECT '000>
<COLUMN SEL '310>name<COL INC '024>on<COL INC '024>in<COL INC '024>fr
ont<COL INC '024>of<COL INC '024>the<COL INC '024>variable
<COL INC '024>name.<COL INC '024>Block<COL INC '023>names
<COL INC '023>are<COL INC '023>generated<COL INC '023>from
<COL INC '023>an<COL INC '023>internal<COL INC '023>block
<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2421>
<FONT SELECT '000>
<COLUMN SEL '310>numbering<COL INC '013>and<COL INC '013>have
<COL INC '013>the<COL INC '013>form<COL INC '013>"$$B1",
<COL INC '013>"$$B2",<COL INC '013>etc.<COL INC '013>Thus,
<COL INC '013>our<COL INC '013>little<COL INC '013>example
<COL INC '013>above<COL INC '013>would<COL INC '013>have
<COL INC '012>three<COLUMN SEL '310><LF>
<COLUMN SEL '310>
<SET Y0 '2457>
<FONT SELECT '000>
<COLUMN SEL '310>scalar<COL INC '016>variables<COL INC '015>$$B1.X,
<COL INC '015>$$B1.Y,<COL INC '015>and<COL INC '015>$$B2.X.
<COL INC '015>When<COL INC '015>a<COL INC '015>program<COL INC '015>i
s<COL INC '015>printed<COL INC '015>out,<COL INC '015>the
<COL INC '015>internal<COL INC '015>names<COLUMN SEL '310><LF>